Komputer for Alle 2001 #16/2001 CD 16 (Black).iso/K-CS.DCR/00303_SuperDesk Special.ls

Text File | 2001-10-25 | 1.3 KB | 43 lines

on new me
  set the visible of sprite the currentSpriteNum to 1
  set the visible of sprite (the currentSpriteNum + 1) to 0
  set the visible of sprite (the currentSpriteNum + 2) to 0
  set the visible of sprite (the currentSpriteNum + 3) to 0
  set the visible of sprite (the currentSpriteNum + 4) to 0
  set the visible of sprite 71 to 1
end

on mouseEnter me
  set the visible of sprite (the currentSpriteNum + 1) to 1
  set the visible of sprite (the currentSpriteNum + 2) to 1
end

on mouseLeave me
  set the visible of sprite (the currentSpriteNum + 1) to 0
  set the visible of sprite (the currentSpriteNum + 2) to 0
  set the visible of sprite (the currentSpriteNum + 3) to 0
end

on mouseDown
  set the visible of sprite 52 to 0
  set the visible of sprite 57 to 0
  set the visible of sprite 66 to 0
  set the visible of sprite 71 to 0
  set the visible of sprite (the currentSpriteNum + 3) to 1
  updateStage()
end

on mouseUp
  set the visible of sprite (the currentSpriteNum + 3) to 0
  set the visible of sprite (the currentSpriteNum + 4) to 1
end

on getBehaviorDescription
  return "Hilite the next two sprites on the stage, and #3 on MouseDown. On mouseup, set one item active."
end

on getPropertyDescriptionList
  set p_list to [#MouseCommand: [#format: #string, #comment: "On mouseclick execute this", #default: "beep"]]
  return p_list
end